home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 4
/
The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO
/
clang
/
rxusmp.zip
/
NPSERVE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-11-19
|
762b
|
40 lines
/* rexx */
/* named-pipe server */
pipename = '\pipe\mypipe'
openmode = 'WIN'
pipemode = 'WTR'
instance_count = 1
outbuf = 4096
inbuf = 4096
timeout = -1
dosrc = rxcreatenpipe('hpipe',pipename,openmode,pipemode,instance_count,
,outbuf,inbuf,timeout)
if dosrc <> 0 then
do
say 'RxCreateNPipe failed with rc =' dosrc
exit
end
say;say 'Waiting for data to read ...';say
dosrc = rxconnectnpipe(hpipe)
if dosrc <> 0 then
do
say 'RxConnectNPipe failed with rc =' dosrc
exit
end
readbufsize = 100
dosrc = rxread('data',hpipe,readbufsize)
do while word(dosrc,1) = 0 & word(dosrc,2) > 0
say 'Data read >'data'<'
dosrc = rxread('data',hpipe,readbufsize)
end
call rxcloseh hpipe
exit